PsL Monthly 1993 December

home *** CD-ROM | disk | FTP | other *** search

/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlqry.exe / QUERY.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-01-02 | 10.2 KB | 291 lines

QUERY Query SQL Server Form1 Label1 Query: QUERY_FIELD NEW_QUERY_BUTTON &New Query SEND_QUERY_BUTTON &Send Query Label2 Results: Results_List Hello Courier ; Menu_File &File Menu_File_Open &Open Menu_File_Save &Save Menu_File_SaveAs Save_&As Menu_File_Exit &Exit A Menu_Edit Menu_Edit_Cut Menu_Edit_Copy Menu_Edit_Paste Paste Menu_Print &Print Menu_Print_Query &Query Menu_Print_Results &Results Form_Click VBSQL1 VBSQL1_Error SqlConn Severity ErrorNum OSError ErrorStr OSErrorStr RetCode ErrStr VBSQL1_Message3 Message@ State} MsgStr SQLErrors/ SQLErrors_Errorb SQLErrors_Message Command1 Connect" Connect_Click Serverw SqlOpenConnection\ SqlInitc SqlCmd SqlExec SqlResults SqlNextRowF NOMOREROWSW numcolu SqlNumColsB DataV SqlData SqlClose SqlWinExitK Form1x Continue DataStr CLOSE_BUTTON_Click QUERYFORM* QUERY_FIELD_Change SEND_QUERY_BUTTON_Click Query_Field rowdata RESULT_FIELD RESULTS_FIELD@ ClearFields Form_GotFocus NEW_QUERY_BUTTON_Click^ Form_Load RESULTS_FIELD_Change coldata5 ColLengths SqlColLen ColnameO SqlColName ActualLen colline TABKEY DETAIL_FIELD rowlen SqlCancel Results tmplen ColValue nextline underline rowcntj tmplenx templenh RESULTS_LIST_Clicke Result_list Results_List4 ListCount Check GotFocus FocusC ResultP REGROW: NOMORERESULTS Process_SQL_queryt SubProcess_SQL_query- WhileResult RowProcess owProcess value SqlAData] Calculate length ColPositions colwidth index altcolF SqlAltColId db_nameF dbidR sysusagesS order7 computer colnum altop SqlAltOp} numalts SqlNumAltsL number columnsp altstring} SqlPrType altvalueT psychology SqlDatLen SqlCount coluline$ SqlGetAltColInfo* AltColDetail Status AltColumnDataY colid aggopname ColInfod SqlGetColumnInfo ColDetails Collen] ColDetailq ColumnData numcompy SqlNumCompute1 numorder SqlNumOrders ResultProcess ordercol SqlOrderColK RemColNamex even^ column? headings displays program anyway would Form_KeyDown KeyCode Shift Form_DragOver Source RetVal, Menu_Edit_Cut_Click Work[ Text1 WstartD SelStart Wlength SelLength ClipboardO Menu_Edit_Copy_Click( SelTexth Menu_Edit_Paste_Click Menu_File_Open_Click GetFile FullFilePath FileSelected Menu_File_Save_Click Menu_Edir_SaveAs_Clickd SaveFile Load Menu_File_Exit_Click# Menu_Edit_SaveAs_Click Menu_File_SaveAs_Click Query SqlSendCmd DatabaseName TableListO ColLenghts Menu_Print_Query_Click PrTxt@ Menu_Print_Results_Click Results_List_Change Space200 Space50 TotalLine TotalULine EndCompute FALSE ComputeLine altstr} alttype Total PosStr Totals Float TotalsOK TotalsCol SEND_QUERY_BUTTON_Click ClearFields NEW_QUERY_BUTTON_Click Form_Load OPEN DEVICE TO PRINT DIRECTLY TO LASERJET PRINTER \dev\lpt1" Call routine to clear the fieldsy Process_SQL_query Define array for column lengths and column positions Define structures for getting a compute column's information and gettingL a regular column's informationa There is no query in the Query field SqlCmd failed, SqlConn = " , Qry$ = " SqlExec failed, SqlConn = Get each set of results Get the number of compute columns, order by columns, and select columns Get the exact position of each column (for lining up compute columns) Get the column name and length for each column CHECK IF HEADER LARGER THAN COLUMN WIDTHc If ActualLen& + 2 > ColLengths(X%) Then + TABKEY$ + TABKEY$ + TABKEY$ + TABKEY$ MsgBox Colname$ + " = " + Str$(ColLengths(X%)) + " at " + Str$(ColPositions(X%))V PRINT OUT THE COLUMN HEADERSr Get each row of data, and process according to type of rowS Process a COMPUTE Row Process a REGULAR row. was SqlDatLen(SqlConn, X%) + TABKEY$ + TABKEY$ The output is too long to fit in the text box. It has been truncated" PRINT TOTALS Output the number of rows affected by the query.t Output the sort order (if applicable) rows affected)" Sort Order: Menu_Edit_Cut_Click Get the working parameters Copy the cut text to the clipboard Cut the text out Position edit cursor Menu_Edit_Copy_Click Menu_Edit_Paste_Click Get the working parameters Cut the text out, if any, and insert clipboard textV Position edit cursor Menu_File_Open_Click MsgBox FullFilePath + ", " + Str$(FileSelected)) Menu_File_Exit_Click (s0p16.67h8.5v0s0b0T Menu_File_Save_Click Menu_File_SaveAs_Click Msgbox FullFilePath Menu_Print_Query_Click (s0p16.67h8.5v0s0b0T MsgBox PrTxt$ Menu_Print_Results_Click (s0p16.67h8.5v0s0b0T